unit untDModule;

interface

uses
  SysUtils, Classes, DB, IBCustomDataSet, IBQuery, IBDatabase, IBUpdateSQL;

type
  TDM = class(TDataModule)
    tBanco: TIBTransaction;
    dstCidade: TIBDataSet;
    dstCidadeCOD_CID: TIntegerField;
    dstCidadeNOME: TIBStringField;
    dstCidadeUF: TIBStringField;
    dstCondPgto: TIBDataSet;
    dstCondPgtoCOD_CONDICAO: TIntegerField;
    dstCondPgtoNUMERO_PARCELAS: TIntegerField;
    dstCondPgtoDESCRICAO: TIBStringField;
    dstGrupoProd: TIBDataSet;
    dstGrupoProdCOD_GRUPO: TIntegerField;
    dstGrupoProdNOME: TIBStringField;
    dstGrupoProdDESCRICAO: TIBStringField;
    dstFuncionario: TIBDataSet;
    dstCliente: TIBDataSet;
    dstFuncionarioCOD_FUNC: TIntegerField;
    dstFuncionarioCOD_CID: TIntegerField;
    dstFuncionarioNOME: TIBStringField;
    dstFuncionarioENDERECO: TIBStringField;
    dstFuncionarioCEP: TIBStringField;
    dstFuncionarioDT_NASCIMENTO: TDateField;
    dstFuncionarioRG: TIBStringField;
    dstFuncionarioCPF: TIBStringField;
    dstFuncionarioTELEFONE: TIBStringField;
    dstFuncionarioCELULAR: TIBStringField;
    dstFuncionarioEMAIL: TIBStringField;
    dstFuncionarioFUNCAO: TIBStringField;
    dstFuncionarioDT_ADMISSAO: TDateField;
    dstFuncionarioDT_DEMISSAO: TDateField;
    dstClienteCEP: TIBStringField;
    dstClienteCPF: TIBStringField;
    dstClienteTELEFONE: TIBStringField;
    dstClienteCELULAR: TIBStringField;
    dstFornecedores: TIBDataSet;
    dstFornecedoresCOD_FORNEC: TIntegerField;
    dstFornecedoresCOD_CID: TIntegerField;
    dstFornecedoresNOME_RAZAO: TIBStringField;
    dstFornecedoresCPF_CNPJ: TIBStringField;
    dstFornecedoresRG_INSCREST: TIBStringField;
    dstFornecedoresENDERECO: TIBStringField;
    dstFornecedoresTELEFONE: TIBStringField;
    dstFornecedoresEMAIL: TIBStringField;
    dstFornecedoresCEP: TIBStringField;
    dstProduto: TIBDataSet;
    dstProdutoCOD_PROD: TIntegerField;
    dstProdutoCOD_GRUPO: TIntegerField;
    dstProdutoNOME: TIBStringField;
    dstProdutoDESCRICAO: TIBStringField;
    dstProdutoCOMPOSICAO: TIBStringField;
    dstProdutoCOD_BARRAS: TIBStringField;
    dstProdutoMED_CONTROLADO: TIBStringField;
    dstProdutoCOR_TARJA: TIBStringField;
    dstProdutoLISTAGEM: TIBStringField;
    dstProdutoREGISTRO_MS: TIBStringField;
    dstProdutoNCM: TIBStringField;
    dstProdutoDT_CADASTRO: TDateField;
    dstProdutoPRECO_CUSTO: TFloatField;
    dstProdutoPRECO_VENDA: TFloatField;
    dstProdutoDESCONTO_MAX: TFloatField;
    qryTemp: TIBQuery;
    dstProdutoMARCA: TIBStringField;
    dstAjusteEstoque: TIBDataSet;
    dstCompra: TIBDataSet;
    dstItemCompra: TIBDataSet;
    dstLote: TIBDataSet;
    dstCompraCOD_COMPRA: TIntegerField;
    dstCompraCOD_CONDICAO: TIntegerField;
    dstCompraCOD_FORNEC: TIntegerField;
    dstCompraDT_COMPRA: TDateField;
    dstCompraVL_COMPRA: TFloatField;
    dstCompraSITUACAO: TIBStringField;
    dstItemCompraCOD_COMPRA: TIntegerField;
    dstItemCompraCOD_PROD: TIntegerField;
    dstItemCompraQTDE_COMPRA: TIntegerField;
    dstItemCompraVL_PRODUTO: TFloatField;
    dstItemCompraVL_DESCONTO: TFloatField;
    dstItemCompraPRODUTO: TStringField;
    dstItemCompraSUBTOTAL: TFloatField;
    dstLoteCOD_LOTE: TIntegerField;
    dstLoteCOD_PROD: TIntegerField;
    dstLoteNR_LOTE: TIBStringField;
    dstLoteQTDE_ESTOQUE: TIntegerField;
    dstLoteDT_VENCIMENTO: TDateField;
    dstLoteDT_FABRICACAO: TDateField;
    dstLotePRODUTO: TIBStringField;
    dstCondPgtoINTERVALO: TIntegerField;
    dBanco: TIBDatabase;
    dstParcelaCP: TIBDataSet;
    dstParcelaCPCOD_PARCELA_CP: TIntegerField;
    dstParcelaCPCOD_COMPRA: TIntegerField;
    dstParcelaCPNR_DOCUMENTO: TIntegerField;
    dstParcelaCPDT_VENCIMENTO: TDateField;
    dstParcelaCPDT_PAGAMENTO: TDateField;
    dstParcelaCPVL_JUROS: TFloatField;
    dstParcelaCPVL_DESCONTO: TFloatField;
    dstParcelaCPVL_PARCELA: TFloatField;
    dstParcelaCPVL_PAGAMENTO: TFloatField;
    dstParcelaCPFORMAPGTO: TIBStringField;
    dstParcelaCPSITUACAO: TIBStringField;
    dstVenda: TIBDataSet;
    dstItemVenda: TIBDataSet;
    dstVendaCOD_VENDA: TIntegerField;
    dstVendaCOD_CONDICAO: TIntegerField;
    dstVendaCOD_FUNC: TIntegerField;
    dstVendaDT_VENDA: TDateField;
    dstVendaVL_VENDA: TFloatField;
    dstVendaCOD_CLI: TIntegerField;
    dstVendaSITUACAO: TIBStringField;
    dstItemVendaCOD_VENDA: TIntegerField;
    dstItemVendaCOD_PROD: TIntegerField;
    dstItemVendaQTDE_VENDIDO: TIntegerField;
    dstItemVendaVL_PRODUTO: TFloatField;
    dstItemVendaVL_DESCONTO: TFloatField;
    dstItemVendaPRODUTO: TIBStringField;
    dstParcelaCR: TIBDataSet;
    dstParcelaCRCOD_PARCELA_CR: TIntegerField;
    dstParcelaCRCOD_VENDA: TIntegerField;
    dstParcelaCRNR_DOCUMENTO: TIntegerField;
    dstParcelaCRDT_VENCIMENTO: TDateField;
    dstParcelaCRDT_RECEBIMENTO: TDateField;
    dstParcelaCRVL_JUROS: TFloatField;
    dstParcelaCRVL_DESCONTO: TFloatField;
    dstParcelaCRVL_PARCELA: TFloatField;
    dstParcelaCRVL_RECEBIMENTO: TFloatField;
    dstParcelaCRFORMAPGTO: TIBStringField;
    dstParcelaCRSITUACAO: TIBStringField;
    dstVendaNUM_RECEITA: TIntegerField;
    dstVendaCRM_MEDICO: TIntegerField;
    dstLoteMED_CONTROLADO: TIBStringField;
    dstRecParcial: TIBDataSet;
    dstRecParcialCOD_REC_PARCIAL: TIntegerField;
    dstRecParcialCOD_PARCELA_CR: TIntegerField;
    dstRecParcialDT_RECEBIDO: TDateField;
    dstRecParcialVL_RECEBIDO: TFloatField;
    dstUsuario: TIBDataSet;
    dstUsuarioCOD_USUARIO: TIntegerField;
    dstUsuarioLOGIN: TIBStringField;
    dstUsuarioSENHA: TIBStringField;
    dstUsuarioNIVEL: TIBStringField;
    dstUsuarioCOD_FUNC: TIntegerField;
    dstUsuarioNOME: TIBStringField;
    qryRelProduto: TIBQuery;
    qryRelLote: TIBQuery;
    qryRelMaisVend: TIBQuery;
    qryRelVenda: TIBQuery;
    qryRelCompra: TIBQuery;
    qryRelProdutoCOD_PROD: TIntegerField;
    qryRelProdutoCOD_GRUPO: TIntegerField;
    qryRelProdutoNOME: TIBStringField;
    qryRelProdutoDESCRICAO: TIBStringField;
    qryRelProdutoCOMPOSICAO: TIBStringField;
    qryRelProdutoCOD_BARRAS: TIBStringField;
    qryRelProdutoMED_CONTROLADO: TIBStringField;
    qryRelProdutoCOR_TARJA: TIBStringField;
    qryRelProdutoLISTAGEM: TIBStringField;
    qryRelProdutoREGISTRO_MS: TIBStringField;
    qryRelProdutoNCM: TIBStringField;
    qryRelProdutoDT_CADASTRO: TDateField;
    qryRelProdutoPRECO_CUSTO: TFloatField;
    qryRelProdutoPRECO_VENDA: TFloatField;
    qryRelProdutoDESCONTO_MAX: TFloatField;
    qryRelProdutoMARCA: TIBStringField;
    qryRelLoteCOD_LOTE: TIntegerField;
    qryRelLoteCOD_PROD: TIntegerField;
    qryRelLoteNR_LOTE: TIBStringField;
    qryRelLoteQTDE_ESTOQUE: TIntegerField;
    qryRelLoteDT_VENCIMENTO: TDateField;
    qryRelLoteDT_FABRICACAO: TDateField;
    qryRelLoteMED_CONTROLADO: TIBStringField;
    qryRelLoteNOME: TIBStringField;
    dstUsuarioPERMISSAO: TIntegerField;
    dstItemVendaSUBTOTAL: TFloatField;
    dstClienteCOD_CLI: TIntegerField;
    dstClienteCOD_CID: TIntegerField;
    dstClienteNOME: TIBStringField;
    dstClienteENDERECO: TIBStringField;
    dstClienteRG: TIBStringField;
    dstClienteEMAIL: TIBStringField;
    qryRelLoteGRUPO: TIBStringField;
    qryRelContasPagar: TIBQuery;
    qryRelContasReceber: TIBQuery;
    qryRelContasReceberCOD_PARCELA_CR: TIntegerField;
    qryRelContasReceberCOD_VENDA: TIntegerField;
    qryRelContasReceberNR_DOCUMENTO: TIntegerField;
    qryRelContasReceberDT_VENCIMENTO: TDateField;
    qryRelContasReceberDT_RECEBIMENTO: TDateField;
    qryRelContasReceberVL_JUROS: TFloatField;
    qryRelContasReceberVL_DESCONTO: TFloatField;
    qryRelContasReceberVL_PARCELA: TFloatField;
    qryRelContasReceberVL_RECEBIMENTO: TFloatField;
    qryRelContasReceberFORMAPGTO: TIBStringField;
    qryRelContasReceberSITUACAO: TIBStringField;
    qryRelContasPagarCOD_PARCELA_CP: TIntegerField;
    qryRelContasPagarCOD_COMPRA: TIntegerField;
    qryRelContasPagarNR_DOCUMENTO: TIntegerField;
    qryRelContasPagarDT_VENCIMENTO: TDateField;
    qryRelContasPagarDT_PAGAMENTO: TDateField;
    qryRelContasPagarVL_JUROS: TFloatField;
    qryRelContasPagarVL_DESCONTO: TFloatField;
    qryRelContasPagarVL_PARCELA: TFloatField;
    qryRelContasPagarVL_PAGAMENTO: TFloatField;
    qryRelContasPagarFORMAPGTO: TIBStringField;
    qryRelContasPagarSITUACAO: TIBStringField;
    qryRelContasPagarCOD_CID: TIntegerField;
    qryRelContasPagarNOME_RAZAO: TIBStringField;
    qryRelContasPagarCPF_CNPJ: TIBStringField;
    qryRelContasPagarRG_INSCREST: TIBStringField;
    qryRelContasPagarENDERECO: TIBStringField;
    qryRelContasPagarTELEFONE: TIBStringField;
    qryRelContasPagarEMAIL: TIBStringField;
    qryRelContasPagarCEP: TIBStringField;
    qryRelContasReceberCOD_CLI: TIntegerField;
    qryRelContasReceberCOD_CID: TIntegerField;
    qryRelContasReceberNOME: TIBStringField;
    qryRelContasReceberENDERECO: TIBStringField;
    qryRelContasReceberCEP: TIBStringField;
    qryRelContasReceberRG: TIBStringField;
    qryRelContasReceberCPF: TIBStringField;
    qryRelContasReceberTELEFONE: TIBStringField;
    qryRelContasReceberCELULAR: TIBStringField;
    qryRelContasReceberEMAIL: TIBStringField;
    qryRelVendaCOD_VENDA: TIntegerField;
    qryRelVendaCOD_CONDICAO: TIntegerField;
    qryRelVendaCOD_FUNC: TIntegerField;
    qryRelVendaDT_VENDA: TDateField;
    qryRelVendaVL_VENDA: TFloatField;
    qryRelVendaCOD_CLI: TIntegerField;
    qryRelVendaNUM_RECEITA: TIntegerField;
    qryRelVendaCRM_MEDICO: TIntegerField;
    qryRelVendaSITUACAO: TIBStringField;
    qryRelVendaFUNCIONARIO: TIBStringField;
    qryRelVendaCLIENTE: TIBStringField;
    qryRelContasPagarCOD_FORNEC: TIntegerField;
    qryRelVendaCONDICAO: TIBStringField;
    qryRelCompraCOD_COMPRA: TIntegerField;
    qryRelCompraCOD_CONDICAO: TIntegerField;
    qryRelCompraCOD_FORNEC: TIntegerField;
    qryRelCompraDT_COMPRA: TDateField;
    qryRelCompraVL_COMPRA: TFloatField;
    qryRelCompraSITUACAO: TIBStringField;
    qryRelCompraCOD_FORNEC1: TIntegerField;
    qryRelCompraCOD_CID: TIntegerField;
    qryRelCompraNOME_RAZAO: TIBStringField;
    qryRelCompraCPF_CNPJ: TIBStringField;
    qryRelCompraRG_INSCREST: TIBStringField;
    qryRelCompraENDERECO: TIBStringField;
    qryRelCompraTELEFONE: TIBStringField;
    qryRelCompraEMAIL: TIBStringField;
    qryRelCompraCEP: TIBStringField;
    qryRelCompraCONDICAO: TIBStringField;
    qryRelMaisVendCOD_PROD: TIntegerField;
    qryRelMaisVendCOD_GRUPO: TIntegerField;
    qryRelMaisVendNOME: TIBStringField;
    qryRelMaisVendDESCRICAO: TIBStringField;
    qryRelMaisVendCOMPOSICAO: TIBStringField;
    qryRelMaisVendCOD_BARRAS: TIBStringField;
    qryRelMaisVendMED_CONTROLADO: TIBStringField;
    qryRelMaisVendCOR_TARJA: TIBStringField;
    qryRelMaisVendLISTAGEM: TIBStringField;
    qryRelMaisVendREGISTRO_MS: TIBStringField;
    qryRelMaisVendNCM: TIBStringField;
    qryRelMaisVendDT_CADASTRO: TDateField;
    qryRelMaisVendPRECO_CUSTO: TFloatField;
    qryRelMaisVendPRECO_VENDA: TFloatField;
    qryRelMaisVendDESCONTO_MAX: TFloatField;
    qryRelMaisVendMARCA: TIBStringField;
    qryRelMaisVendQTDE: TLargeintField;
    dstAjusteEstoqueCOD_AJUSTE: TIntegerField;
    dstAjusteEstoqueCOD_LOTE: TIntegerField;
    dstAjusteEstoqueQTDE_AJUSTADO: TIntegerField;
    dstAjusteEstoqueMOTIVO: TIBStringField;
    dstAjusteEstoqueOBSERVACAO: TIBStringField;
    procedure dstItemCompraBeforeOpen(DataSet: TDataSet);
    procedure dstItemVendaBeforeOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

procedure TDM.dstItemCompraBeforeOpen(DataSet: TDataSet);
begin
  dstItemCompra.ParamByName('cod_compra').Value := dstCompraCOD_COMPRA.Value;
end;

procedure TDM.dstItemVendaBeforeOpen(DataSet: TDataSet);
begin
  dstItemVenda.ParamByName('cod_venda').Value := dstVendaCOD_VENDA.Value;
end;

end.
